(compilation-sentinel): Include exit status in modeline.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index bff419b81b7bbffc5b880c183e1ae972d8f152f5..7e326e9b62a4c074c294231c7993b4fbb0ad1292 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -539,7 +539,8 @@ See `compilation-mode'."
                      (forward-char 1)
                      (setq mode-line-process
                            (concat ":"
-                                   (symbol-name (process-status proc))))
+                                   (symbol-name (process-status proc))
+                                   " [" (process-exit-status proc) "]"))
                      ;; Since the buffer and mode line will show that the
                      ;; process is dead, we can delete it now.  Otherwise it
                      ;; will stay around until M-x list-processes.